<html>

<!--   DTD or Date & time info
       Version 1.0  July 29th, 2005
       multiline comments
 -->


<!-- ARCHIVE by GEOCITIES.WS -->
<head>
  <title>1-up Label Addressor using GW-BASIC</title>
</head>

<!--  the "LessThanBangDashDash" + "DashDashGreaterThan"
      is a nondisplaying comment
-->

<a name="top"></a>

<center><h1>1-UP Label Addressor</h1></center>
<center><h4>for the family using</h4></center>
<center><h1>GW-BASIC</h1></center>

Page 1 of the <a href="bindex.html">Last Book of GW-BASIC</a><br>
Back to the GW-BASIC <a href="btoc.html">Table of Contents</a><br>
All the way back to <a href="index-2.html">Frankenbook</a>

<body><script type="text/javascript" src="../js/policy.js"></script>
<center><script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&amp;height=90"></script>
</center>
<!--script type="text/javascript" src="/js/AdBoxDiv.js"></script-->
<script type="text/javascript">
adserver();
window.onload=function(){
html = document.body.innerHTML;

checkPolicy(html);
if ((displayif == 0) && (adstring != null)) {
document.getElementById("footeraddiv").innerHTML = adstring;
}
}
</script>
<script type="text/javascript">

  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-26341965-1']);
  _gaq.push(['_setDomainName', '.geocities.ws']);
  _gaq.push(['_trackPageview']);

  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();

</script>


<script type="text/javascript">
<!--
 H4jewqpdjh6y = /geocities\.ws$|geocities\.ws\/$|geocities\.ws\/index\.php|geocities\.ws\/archive|geocities\.ws\/search|geocities\.ws\/terms-of-use\.php|geocities\.ws\/terms-of-service\.php|geocities\.ws\/about\.php/i;
        t48193jfrdsswdsq = document.URL;
        H4jewqpdjh6yfound = t48193jfrdsswdsq.search(H4jewqpdjh6y);
	
if(H4jewqpdjh6yfound == -1){
	document.write("<center><ins data-revive-zoneid=\"1\" data-revive-id=\"249a85bd1b1946c71ef2de94958ed350\"><\/ins><script async src=\"\/\/147.135.187.149\/ads\/www\/delivery\/asyncjs.php\"><\/script><\/center><br>");
}
//-->
</script>

<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE -->

<hr>

<pre>
10   ' a one (1) up label page blank by fhb4family
20 DATA "T1                                 "
30 DATA "1 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
40 DATA "1 3456789 123456789 123456789 12345"
50 DATA "1 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
60 DATA "B1                                 "
70 DATA "T2                                 "
80 DATA "2 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
90 DATA "2 3456789 123456789 123456789 12345"
100 DATA "2 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
110 DATA "B2                                 "
120 DATA "T3                                 "
130 DATA "3 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
140 DATA "3 3456789 123456789 123456789 12345"
150 DATA "3 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
160 DATA "B3                                 "
170 DATA "T4                                 "
180 DATA "4 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
190 DATA "4 3356789 123456789 123456789 12345"
200 DATA "4 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
210 DATA "B4                                 "
220 DATA "T5                                 "
230 DATA "5 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
240 DATA "5 3456789 123456789 123456789 12345"
250 DATA "5 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
260 DATA "B5                                 "
270 DATA "T6                                 "
280 DATA "6 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
290 DATA "6 3456789 123456789 123456789 12345"
300 DATA "6 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
310 DATA "B6                                 "
320 DATA "T7                                 "
330 DATA "7 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
340 DATA "7 3456789 123456789 123456789 12345"
350 DATA "7 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
360 DATA "B7                                 "
370 DATA "T8                                 "
380 DATA "8 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
390 DATA "8 3456789 123456789 123456789 12345"
400 DATA "8 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
410 DATA "B8                                 "
420 DATA "T9                                 "
430 DATA "9 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
440 DATA "9 3456789 123456789 123456789 12345"
450 DATA "9 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
460 DATA "B9                                 "
470 DATA "T10                                "
480 DATA "10 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
490 DATA "10 356789 123456789 123456789 12345"
500 DATA "10 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
510 DATA "B10                                "
520 DATA "T11                                "
530 DATA "11 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
540 DATA "11 356789 123456789 123456789 12345"
550 DATA "11 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
560 DATA "B11                                "
570 DATA "T12                                "
580 DATA "12 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
590 DATA "12 356789 123456789 123456789 12345"
600 DATA "12 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
610 DATA "B12                                "
620 DATA "T13                                "
630 DATA "13 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
640 DATA "13 356789 123456789 123456789 12345"
650 DATA "13 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
660 DATA "B13                                "
670 DATA "T14                                "
680 DATA "14 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
690 DATA "14 356789 123456789 123456789 12345"
700 DATA "14 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
710 DATA "B14                                "
720 DATA "T15                                "
730 DATA "15 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
740 DATA "15 356789 123456789 12345"
750 DATA "15 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
760 DATA "B15                                "
770 DATA "T16                                "
780 DATA "16 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
790 DATA "16 356789 123456789 123456789 12345"
800 DATA "16 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
810 DATA "B16                                "
820 DATA "T17                                "
830 DATA "17 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
840 DATA "17 356789 123456789 123456789 12345"
850 DATA "17 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
860 DATA "B17                                "
870 DATA "T18                                "
880 DATA "18 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
890 DATA "18 356789 123456789 123456789 12345"
900 DATA "18 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
910 DATA "B18                                "
920 DATA "T19                                "
930 DATA "19 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
940 DATA "19 356789 123456789 123456789 12345"
950 DATA "19 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
960 DATA "B19                                "
970 DATA "T20                                "
980 DATA "20 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
990 DATA "20 356789 123456789 123456789 12345"
1000 DATA "20 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1010 DATA "B20                                "
1020 DATA "T21                                "
1030 DATA "21 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1040 DATA "21 356789 123456789 123456789 12345"
1050 DATA "21 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1060 DATA "B21                                "
1070 DATA "T22                                "
1080 DATA "22 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1090 DATA "22 356789 123456789 123456789 12345"
1100 DATA "22 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1110 DATA "B22                                "
1120 DATA "T23                                "
1130 DATA "23 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1140 DATA "23 356789 123456789 123456789 12345"
1150 DATA "23 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1160 DATA "B23                                "
1170 DATA "T24                                "
1180 DATA "24 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1190 DATA "24 356789 123456789 123456789 12345"
1200 DATA "24 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1210 DATA "B24                                "
1220 DATA "T25                                "
1230 DATA "25 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1240 DATA "25 356789 123456789 123456789 12345"
1250 DATA "25 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1260 DATA "B25                                "
1270 DATA "T26                                "
1280 DATA "26 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1290 DATA "26 356789 123456789 123456789 12345"
1300 DATA "26 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1310 DATA "B26                                "
1320 DATA "T27                                "
1330 DATA "27 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1340 DATA "27 356789 123456789 123456789 12345"
1350 DATA "27 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1360 DATA "B27                                "
1370 DATA "T28                                "
1380 DATA "28 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1390 DATA "28 356789 123456789 123456789 12345"
1400 DATA "28 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1410 DATA "B28                                "
1420 DATA "T29                                "
1430 DATA "29 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1440 DATA "29 356789 123456789 123456789 12345"
1450 DATA "29 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1460 DATA "B29                                "
1470 DATA "T30                                "
1480 DATA "30 2LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1490 DATA "30 346789 123456789 123456789 12345"
1500 DATA "30 4LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
1510 DATA "B30                                "
1520 'End of data statements
1530 '
1540 '======1-up label program starts here================
1550 '
1560 'LabelProgramStartsHere:
1570 GOSUB 1620   'VariableAssignments
1580 GOSUB 1690   'load 150 data elements into array A$(150)
1590 GOSUB 1760   'Print1AcrossLabels
1600 END
1610 '
1620 'VariableAssignments:
1630 DIM A$(150)   'create string array that holds labels (data)
1640 T1=3          'set first column tab
1650 LC=1          'set the line counter to 1
1660 I=0           'set counter I to 0
1670 RETURN' to program
1680 '
1690 'LoadLabelData:
1700 WHILE I<150   'set the number of loops
1710   READ A$(I)  'load the label lines (data)into the array
1720   I=I+1       'increment the counter
1730   WEND        '^^^^^^^^^^^^^^^loop to load labels into array
1740 RETURN 'to program
1750 '
1760 'Print1AcrossLabels:
1770 I=0           'reset counter to 0 again for 2nd while-wend loop
1780 WHILE I<150   'set loop value
1790   PRINT TAB(T1) A$(I)
1800   LC=LC+1                 'increment line counter by one
1810   IF LC>5 THEN GOSUB 1850 'go to insert a line
1820 I=I+1
1830 WEND   '^^^^^^^^^^^^^^^^loop thru data to print 1-up label page
1840 '
1850 'Insert-A-Line:
1860 PRINT  'print an empty line to separate labels
1870 LC=1   'reset LC (line counter) to 1
1880 RETURN 'to 1acrossLabels routine
1890 '
1900 'Data Editing Roadmap:
1910 '  cls: list 20-210    'edit labels 1-4
1920 '  cls: list 220-410   'edit labels 5-8
1930 '  cls: list 420-610   'edit labels 9-12
1940 '  cls: list 620-810   'edit labels 13-16
1950 '  cls: list 820-1010  'edit labels 17-20
1960 '  cls: list 1020-1210 'edit labels 21-24
1970 '  cls: list 1220-1410 'edit labels 25-28
1980 '  cls: list 1420-1510 'edit labels 29-30
1990 '
2000 'Subroutine Editing Roadmap:
2010 '  cls: list 1550-1610 'Program
2020 '  cls: list 1610-1680 'VariableAssignments
2030 '  cls: list 1680-1750 'LoadLabelData
2040 '  cls: list 1750-1840 'Print1acrossLabels
2050 '  cls: list 1840-1890 'Insert-A-Line
2060 '  cls: list 1890-1990 'DataEditingRoadmap
2070 '  cls: list 1990-2090 'SubroutineEditingRoadmap
2080 '  cls: list 2090-2120 'EmbeddedCommands
2090 '
2100 'EmbeddedCommands:
2110 '
2120 '  save "1uplabel.bas",a 'save the program in ASCII mode
2130 '

</pre>

<hr>

</body>

<a href="b1uplabel.html#top">TOP</a><br>
<a href="bindex.html">Index</a><br>
<a href="btoc.html">TOC</a>


<!-- ARCHIVE by GEOCITIES.WS -->
<div id="footeraddiv" name="footeraddiv">Hosted by www.Geocities.ws</div>
<br>	
<center>
        <div>
<!--script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script-->
<script type="text/javascript">
	atOptions = {
		'key' : '5046d8ab865606a85a55c357926403c9',
		'format' : 'iframe',
		'height' : 90,
		'width' : 728,
		'params' : {}
	};
	document.write('<scr' + 'ipt type="text/javascript" src="http' + (location.protocol === 'https:' ? 's' : '') + '://www.bcloudhost.com/5046d8ab865606a85a55c357926403c9/invoke.js"></scr' + 'ipt>');
</script>
        </div>

</center>
</html>
<!-- text below generated by server. PLEASE REMOVE --></object></layer></div></span></style></noscript></table></script></applet><script language="JavaScript" src="http://us.i1.yimg.com/us.yimg.com/i/mc/mc.js"></script><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/geov2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.geocities.yahoo.com/visit.gif?us1256595139" alt="setstats" border="0" width="1" height="1"></noscript>
<IMG SRC="http://geo.yahoo.com/serv?s=76001084&amp;t=1256595139&amp;f=us-w3" ALT=1 WIDTH=1 HEIGHT=1>
